function[resultados_dis]=tabla_resultados_dis
principio='D:\proyecto\escritores\BD100escritores\';
for escritor=1:100
    datos=zeros(1,34);
    datos2=zeros(1,10);
   for t=1:10        
        for w=1:34
            direccion1=strcat(strcat(principio,num2str(escritor)),'\NORMAL\',strcat('muestra',num2str(t)),strcat('\p',num2str(w)),'.bmp');
            xbin=binarizacion(direccion1);
            [topline,upperbaseline,downbaseline,downline,ancho_cuerpo]=lineas_palabra(xbin);
            [distancia]=distancia_letras2(xbin,upperbaseline,downbaseline);
            datos(1,w)=distancia;    
        end
         
        datos2(1,t)=mean(datos(1,:));
        
        datos=zeros(1,34);
    end
    resultados_dis{1,escritor}=datos2;
    datos2=zeros(1,10);
end   
save 'res_dis2.mat' resultados_dis